home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- String STRING001
- String STRING002
- String STRING003
- String STRING004
- String STRING005
-
- ;------------------------------------------------------------------------------
-
- STRING005 = Chr(13)
- STRING002 = "@X2F"
- STRING004 = "@X2Fda logon shit@X08"
- STRING003 = "@X2Fi want speed!@X08"
- Print "@CLS@"
- DispFile PPEPath() + "XpSFAST.PCB", 0
- :LABEL001
- AnsiPos 31, 4
- Print STRING003
- AnsiPos 31, 5
- Print "@X08da logon shit@X0F"
- AnsiPos 31, 6
- :LABEL002
- STRING001 = Inkey()
- If (STRING001 == "8") Goto LABEL001
- If (STRING001 == "UP") Goto LABEL001
- If (STRING001 == "A") Goto LABEL001
- If (STRING001 == "E") Goto LABEL006
- If (STRING001 == "P") Goto LABEL007
- If (STRING001 == "a") Goto LABEL001
- If (STRING001 == "DOWN") Goto LABEL003
- If (STRING001 == "Z") Goto LABEL003
- If (STRING001 == "z") Goto LABEL003
- If (STRING001 == "2") Goto LABEL003
- If (STRING001 == "") Goto LABEL002
- If (STRING001 == STRING005) Goto LABEL006
- Goto LABEL002
- :LABEL003
- AnsiPos 31, 4
- Print "@X08i want speed!@X08"
- AnsiPos 31, 5
- Print STRING004
- AnsiPos 31, 6
- :LABEL004
- STRING001 = Inkey()
- If (STRING001 == "E") Goto LABEL006
- If (STRING001 == "P") Goto LABEL007
- If (STRING001 == "DOWN") Goto LABEL003
- If (STRING001 == "Z") Goto LABEL003
- If (STRING001 == "z") Goto LABEL003
- If (STRING001 == "8") Goto LABEL001
- If (STRING001 == "UP") Goto LABEL001
- If (STRING001 == "A") Goto LABEL001
- If (STRING001 == "a") Goto LABEL001
- If (STRING001 == "2") Goto LABEL003
- If (STRING001 == "") Goto LABEL004
- If (STRING001 == STRING005) Goto LABEL007
- Goto LABEL004
- :LABEL005
- STRING001 = Inkey()
- If (STRING001 == "E") Goto LABEL006
- If (STRING001 == "P") Goto LABEL007
- If (STRING001 == "DOWN") Goto LABEL001
- If (STRING001 == "Z") Goto LABEL001
- If (STRING001 == "z") Goto LABEL001
- If (STRING001 == "8") Goto LABEL003
- If (STRING001 == "UP") Goto LABEL003
- If (STRING001 == "A") Goto LABEL003
- If (STRING001 == "a") Goto LABEL003
- If (STRING001 == "2") Goto LABEL001
- If (STRING001 == "") Goto LABEL005
- Goto LABEL005
- :LABEL006
- Print "@CLS@"
- DispFile PPEPath() + "XpsFast2.dat", 1
- Cls
- End
- :LABEL007
- Print "@CLS@"
- DispFile PPEPath() + "XpsFast.dat", 1
- Cls
- End
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 2 End
- ; 2 Cls
- ; 38 Goto
- ; 7 Let
- ; 7 Print
- ; 35 If
- ; 3 DispFile
- ; 6 AnsiPos
- ;
- ;
- ; ■ Functions used :
- ;
- ; 3 +
- ; 35 ==
- ; 1 Chr()
- ; 3 Inkey()
- ; 3 PPEPath()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : No flag
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 0 While/EndWhile
- ; 0 If/Then or If/Then/Else
- ; 0 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-